unit uClasseProdutoReferencia;

interface

uses
  uClasseBase,
  ADODB;

type
  TProduto_Referencia = class(TConsultaBase)
  const
    Tabela = 'Produto_Referencia';
    PrimaryKey = 'nr_sequencia';
  private
    Fnr_sequencia: Integer;
    Fnr_seq_produto: Integer;
    Fcd_referencia: string;
    Fnr_seq_cliente: Integer;
    procedure Setnr_sequencia(const Value: Integer);
    procedure Setcd_referencia(const Value: string);
    procedure Setnr_seq_cliente(const Value: Integer);
    procedure Setnr_seq_produto(const Value: Integer);
  public
    class function GetTabela:string;override;
    class function GetPrimaryKey:string;override;
  published
  property nr_sequencia:Integer read Fnr_sequencia write Setnr_sequencia;
  property nr_seq_cliente:Integer read Fnr_seq_cliente write Setnr_seq_cliente;
  property nr_seq_produto:Integer read Fnr_seq_produto write Setnr_seq_produto;
  property cd_referencia:string read Fcd_referencia write Setcd_referencia;
  end;

implementation

{ TProdutoReferencia }

class function TProduto_Referencia.GetPrimaryKey: string;
begin
  result := PrimaryKey;
end;

class function TProduto_Referencia.GetTabela: string;
begin
  result := Tabela;
end;

procedure TProduto_Referencia.Setcd_referencia(const Value: string);
begin
  Fcd_referencia := Value;
end;

procedure TProduto_Referencia.Setnr_sequencia(const Value: Integer);
begin
  Fnr_sequencia := Value;
end;

procedure TProduto_Referencia.Setnr_seq_cliente(const Value: Integer);
begin
  Fnr_seq_cliente := Value;
end;

procedure TProduto_Referencia.Setnr_seq_produto(const Value: Integer);
begin
  Fnr_seq_produto := Value;
end;

end.
